home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33b.d64 / new colours.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  899b  |  57 lines
  1. 100 (null)
  2. 110 OPT OO
  3. 120 *= $C000
  4. 130 CBASV = $D800
  5. 140 CBAS1 = $C700
  6. 150 CBAS2 = $CB00
  7. 160 SEI
  8. 170 LDA #<IRQNEU
  9. 180 STA $0314
  10. 190 LDA #>IRQNEU
  11. 200 STA $0315
  12. 210 LDA #$FF
  13. 220 STA $D012
  14. 230 LDA $D011
  15. 240 AND #%01111111
  16. 250 STA $D011
  17. 260 LDA #%00000001
  18. 270 STA $D01A
  19. 280 LDA #$7F
  20. 290 STA $DC0D
  21. 300 CLI
  22. 310 RTS
  23. 320 IRQNEU LDA $D019
  24. 330 STA $D019
  25. 340 LDA $D012
  26. 350 LDA $02
  27. 360 BEQ ERSTE
  28. 370 LDY #$00
  29. 380 LOOP1 LDA CBAS1,Y
  30. 390 STA CBASV,Y
  31. 400 LDA CBAS1 + $100 ,Y
  32. 410 STA CBASV + $100 ,Y
  33. 420 LDA CBAS1 + $200 ,Y
  34. 430 STA CBASV + $200 ,Y
  35. 440 LDA CBAS1 + $300 ,Y
  36. 450 STA CBASV + $300 ,Y
  37. 460 DEY
  38. 470 BNE LOOP1
  39. 480 LDA #$00
  40. 490 STA $02
  41. 500 JMP $EA31
  42. 510 ERSTE LDY #$00
  43. 520 LOOP2 LDA CBAS2,Y
  44. 530 STA CBASV,Y
  45. 540 LDA CBAS2 + $100 ,Y
  46. 550 STA CBASV + $100 ,Y
  47. 560 LDA CBAS2 + $200 ,Y
  48. 570 STA CBASV + $200 ,Y
  49. 580 LDA CBAS2 + $300 ,Y
  50. 590 STA CBASV + $300 ,Y
  51. 600 DEY
  52. 610 BNE LOOP2
  53. 620 LDA #$FF
  54. 630 STA $02
  55. 640 JMP $EA31
  56. 0 
  57.